home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM User 1995 August
/
CD ROM User Issue 13 (Paragon Publishing) (August 1995).iso
/
isys
/
isysami.s2_
/
isysami.s2
Wrap
INI File
|
1993-03-28
|
6KB
|
793 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
NEC Pinwriter CP7
[port]
LPT1:
[lang]
18
[desc]
Performs a query on selected text provided that ISYS Query is currently loaded.
733429248
11
731117993
360
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Body Text
2
[fnt]
Arial
200
0
16384
[algn]
1
2
0
0
0
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
0
2
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
0
0
0
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
0
2
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
289
289
289
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
2
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
357
357
357
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
2
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
2
0
0
0
[spc]
33
289
2
73
73
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
2
0
2
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
2
0
0
0
[spc]
33
430
2
141
73
2
100
[brk]
16
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
1
0
2
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
0
0
0
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
0
2
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
0
0
0
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
0
2
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[tag]
Bullet
12
[fnt]
Times New Roman
240
0
49152
[algn]
1
2
0
289
289
[spc]
33
289
2
0
0
2
100
[brk]
4
[line]
8
0
2
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
2
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[lay]
Standard
516
[rght]
16834
11907
2
1440
1440
2
1440
1440
0
1
0
1
0
2
1
1440
10465
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
11907
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
11907
1
1440
73
2
793
1440
0
1
0
1
1
0
1
1440
10465
2
2
4680
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
15394
11907
16834
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
16834
11907
1
1440
793
2
15467
1440
0
1
0
1
1
0
1
1440
10465
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
1
27 0 12 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#236,9025>' Macro to call ISYS Query from AmiPro
<:#236,9025>
<:#236,9025>FUNCTION Main()
<:#236,9025> MacFile = GetRunningMacroFile$()
<:#236,9025> ChangeShortcutKey(MacFile, "Q", "CS")
<:#236,9025> CALL ISYS_QUERY()
<:#236,9025>END FUNCTION
<:#236,9025>
<:#236,9025>' Perform an ISYS Query when text is selected only if ISYS is currently loaded.
<:#236,9025>
<:#236,9025>FUNCTION ISYS_Query()
<:#236,9025> s$ = CurShade$()
<:#236,9025> If Len(s$) <;> 1 then
<:#236,9025> ch = DDEInitiate("IQW", "QryCmd")
<:#236,9025> if ch = 0
<:#236,9025> message("Please start the ISYS Query program before using this macro.")
<:#236,9025> else
<:#236,9025> StatusBarMsg("Now performing query...")
<:#236,9025> DDEInitiate("IQW", "QryCmd")
<+@> DDEExecute(ch, strcat$("~",s$)) ' Tilde makes this a hyper-query
<:#236,9025> DDETerminate(ch)
<:#236,9025> StatusBarMsg("")
<:#236,9025> endif
<:#236,9025> else
<:#236,9025> message("Please select some text before performing an ISYS query.")
<:#236,9025> endif
<:#236,9025>END FUNCTION
>
[Embedded]
00005648
>
[macsum] 2
Main 0 0 2 2
ISYS_Query 76 0 3 10
[macse]
14 Main
0 802
13
8 1
2 490 1 "{1}" "Q" "CS"
16 ISYS_QUERY
6 0
15
9
14 ISYS_Query
0 24
13
8 1
0 14 "{1}"
13
5 1
18 3
11 00000332
0 8 "IQW" "QryCmd"
13
8 2
6 2
5 0
18 0
11 00000209
0 3 "Please start the ISYS Query program before using this macro."
10 00000319
0 789 "Now performing query..."
0 8 "IQW" "QryCmd"
0 16 "~" "{1}"
13
0 11 "{2}" [X]
0 9 "{2}"
0 789 ""
10 00000396
0 3 "Please select some text before performing an ISYS query."
6 0
15
9
00005673